home *** CD-ROM | disk | FTP | other *** search
/ Aminet 30 / Aminet 30 (1999)(Schatztruhe)[!][Apr 1999].iso / Aminet / mus / edit / OctamedSS1.03c.lha / Soundstudio / Rexx / omed.lha / rexx / crsr_dn.omed < prev    next >
Text File  |  1996-06-02  |  629b  |  15 lines
  1. /* range - crsr dn */
  2. rn_isranged var rn_state
  3. if ~rn_state then ed_advanceline down
  4. else do
  5.     ed_advanceline down
  6.     ed_getcurrline var currline
  7.     rn_getrangestartline var rnstartline    
  8.     rn_getrangeendline var rnendline
  9.     ed_getcurrtrack var currtrack
  10.     if currline > rnendline then 'rn_setrange starttrack' currtrack 'startline' rnstartline 'endtrack' currtrack 'endline' currline
  11.     else do
  12.         if currline < rnstartline then 'rn_setrange starttrack' currtrack 'startline' currline 'endtrack' currtrack 'endline' rnstartline
  13.         else 'rn_setrange starttrack' currtrack 'startline' currline 'endtrack' currtrack 'endline' rnendline
  14.     end
  15. end